home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / upl.arc / SHOWUSER.UPL < prev    next >
Encoding:
Text File  |  1987-03-08  |  1.6 KB  |  35 lines
  1. =============================================================================
  2. = A simple little program to show you everything there is to know about any =
  3. = user you specify.  Illustrates the use of every variable available.       =
  4. =============================================================================
  5.  
  6. ifeq @arg1 ""     Display format message if no name given
  7.   print "Proper format is: UPL @arg0 username"
  8.   print "              or: UPL @arg0 'user name'"
  9.   abort
  10. endif
  11. end         Since @ARG1 is a constant, we can save a bit of seek time by
  12. run         only doing this test once.
  13.  
  14. ifeq @name @arg1
  15.   print 'User #@usernum: @name'
  16.   print 'City=@city; Password=@password'
  17.   print 'Last called on @lastcall (@daysago days ago)'
  18.   print '# Calls=@calls, Last msg area=@msgarea, Last file area=@filearea'
  19.   print 'Priv=@priv, Time on today=@oltoday, Net downloads=@dltoday'
  20.   print 'Total uploads=@uploadsKB, Total downloads=@downloadsKB, Ratio=@ulratio%'
  21.   print 'Help=@help, Tabs=@tabs, Nulls=@nulls, Screen width=@width, Screen length=@length'
  22.   print 'More=@more, Ansi=@ansi, OnOpus=@kludge, Screen clear=@formfeed'
  23.   print 'Mail credit=@credit cent(s), Mail debt=@debit cent(s)'
  24.   print 'Sysop207 delete flag=@delflg1; RemSysop delete flag=@delflg2'
  25.   print
  26.   print 'Area   Last             Area   Last'
  27.   print '----   ----             ----   ----'
  28.   print ' @mra0$09@mrc0$09$09 @mra5$09@mrc5'
  29.   print ' @mra1$09@mrc1$09$09 @mra6$09@mrc6'
  30.   print ' @mra2$09@mrc2$09$09 @mra7$09@mrc7'
  31.   print ' @mra3$09@mrc3$09$09 @mra8$09@mrc8'
  32.   print ' @mra4$09@mrc4$09$09 @mra9$09@mrc9'
  33.   end
  34. endif
  35.